(utf-8-compose): Display an invalid UTF-8 byte with `escape-glyph'

face.

diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el
index 560436308178edcb0e00d0e732a12dd8da5db4fe..384d973db9fdf87d021df4dc6a598e6e7d051c7a 100644 (file)
--- a/lisp/international/utf-8.el
+++ b/lisp/international/utf-8.el
@@ -934,7 +934,8 @@ Move point to the end of the sequence."
                             'help-echo 'utf-8-help-echo)
          (if (= l 2)
              (put-text-property (point) (min (point-max) (+ l (point)))
-                                'display (format "\\%03o" ch))
+                                'display (propertize (format "\\%03o" ch)
+                                                     'face 'escape-glyph))
            (compose-region (point) (+ l (point)) ?\e$,3u=\e(B))
          (forward-char l))
       (forward-char 1))))